home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 4.2 / programs / icon_programs / makecrouton.rexx < prev    next >
OS/2 REXX Batch file  |  1998-04-16  |  1KB  |  64 lines
  1. /* MakeCrouton.rexx V1.0 -- Make a crouton with 8 and 64 color IFF's.     */
  2. /* By Bob Caron (Grue) ©1995 NewTek Inc.                                  */
  3.  
  4. parse arg IconName
  5.  
  6. if IconName="" then do
  7.   say "MakeCrouton V1.0 -- Syntax:"
  8.   say "  RX MakeCrouton <IconName>"
  9.   call quit()
  10.   end
  11.  
  12. if ~exists("64Color/"||IconName) then do
  13.   say "You need a directory called 64color with the 64 color version of"
  14.   say "the icon in it."
  15.   call quit()
  16.   end
  17.  
  18. if ~exists("8Color/"||IconName) then do
  19.   say "You need a directory called 8color with the 8 color version of"
  20.   say "the icon in it."
  21.   call quit()
  22.   end
  23.  
  24. notname=iconname||".not"
  25.  
  26. cmd="runnot 64color/"||iconname||" 64color/"||notname
  27. address command cmd
  28. cmd="runnot 8color/"||iconname||" 8color/"||notname
  29. address command cmd
  30.  
  31. if ~exists("64color/"notname) then do
  32.   cmd="copy 64color/"||iconname||" 64color/"||notname
  33.   address command cmd
  34.   end
  35.  
  36. if ~exists("8color/"notname) then do
  37.   cmd="copy 8color/"||iconname||" 8color/"||notname
  38.   address command cmd
  39.   end
  40.  
  41. cmd="addpus 64color/"||notname
  42. address command cmd
  43. cmd="addpus 8color/"||notname
  44. address command cmd
  45. cmd="copy 8color/"||notname||" "||iconname
  46. address command cmd
  47. cmd="join 8color/"||notname||" to "||iconname
  48. address command cmd
  49. cmd="delete 64color/"||notname
  50. address command cmd
  51. cmd="delete 8color/"||notname
  52. address command cmd
  53.  
  54. if ~exists(iconname) then do
  55.    say "Error making crouton."
  56.    call quit()
  57.    end
  58.  
  59. say "Crouton Made."
  60.  
  61. exit
  62.  
  63. quit:
  64. exit